SET WIDTH 132
SET HEADER ON
SET PRINTBACK LISTING
GET FILE = 'C:\SPSS\V\BJPS22-1.SAV'  /MAP
DISPLAY VARLIST
*START THE ANALYSIS

FREQUENCIES VARI=ALL/STAT=ALL
TITLE FIGURE 1, 2022
ADD VALUE LABELS BLACK(0)African Americans(1)White People
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = MEFREEM BLACK
TEMPORARY
COMPUTE MEFREEM = MEFREEM * 100
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (0,0) (MEFREEM  ) BY BLACK 
  / INTERVAL CI (95)
TEMPORARY
RECODE MEFREEM (0=1)(1=0)
COMPUTE MEFREEM = MEFREEM * 100
VAR LABELS MEFREEM Percentage Not Feeling Free to Speak Their Minds
VAR LABELS BLACK Respondent's Race
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREEM ) BY BLACK
  / INTERVAL CI (95)
TEMPORARY
RECODE MEFREEM (0=1)(1=0)
COMPUTE MEFREEM = MEFREEM * 100
VAR LABELS MEFREEM Percentage Not Feeling Free to Speak Their Minds
VAR LABELS BLACK Respondent's Race
GRAPH
  /TEMPLATE =     'C:\wS2000\Fig 1, 2022.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREEM ) BY BLACK
  / INTERVAL CI (95)

TITLE FIGURE 2, 2022
WEIGHT BY WEIGHT
VAR LABELS WHOFEARA Worried About Members of My Immediate Family
VAR LABELS WHOFEARB Worried About My Close Friends
VAR LABELS WHOFEARC Worried About My Co-Workers
VAR LABELS WHOFEARD Worried About Members of My Organizations
VAR LABELS WHOFEARE Worried About My Community
VAR LABELS WHOFEARF Worried About My Representatives in Government
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1 THRU 3 =1)(4=0)
COMPUTE WHOFEARA = WHOFEARA * 100
COMPUTE WHOFEARB = WHOFEARB * 100
COMPUTE WHOFEARC = WHOFEARC * 100
COMPUTE WHOFEARD = WHOFEARD * 100
COMPUTE WHOFEARE = WHOFEARE * 100
COMPUTE WHOFEARF = WHOFEARF * 100
GRAPH
   /TEMPLATE =     'C:\wS2000\Fig 2, 2022.SGT'
  /BAR (SIMPLE)= MEAN ( WHOFEARA TO WHOFEARE ) 
  / INTERVAL CI (95)


TITLE FIGURE 6
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
MEANS TABLES = RELUCTANTX5 BY AGE0 /STAT=ALL
SPLIT FILE OFF
VAR LABELS AGECAT Respondent Age
VAR LABELS RELUCTANTX5 Average Reluctance to Speak Out
FREQUENCIES VARI =
  NB600 NW597
TITLE FIGURE 6
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\FIG 6, 2022.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)


TITLE FIGURE 7
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
MEANS TABLES = RELUCTANTX5 BY PARTYID POLVIEWS /STAT=ALL
SPLIT FILE OFF
TITLE FIGURE 7
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID BY BLACK
  / INTERVAL CI (95)

TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\FIG7A, 2022.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID BY BLACK
  / INTERVAL CI (95)

TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Fig 7B, 2022.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)

WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = NB600 NW597 
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
SUBTITLE TABLE 2
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX5
  /ENTER = PARTYID0 TO ATTEND0 
SPLIT FILE OFF
WEIGHT BY WEIGHT
DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  
  BATTEND0 
  
  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX5
  /ENTER = PARTYID0 TO ATTEND0 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

TITLE TABLE D.2
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
DESCRIPTIVES VARI =
  RELUCTANTX5 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST


TITLE PSYCHOMETRICS
RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARE
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARE
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARE
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN

TITLE PSYCHOMETRICS BY RACE

WEIGHT BY WEIGHT_AA
SORT CASES BY BLACK
SPLIT FILE BY BLACK
RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARE
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARE
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARE
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN
SPLIT FILE OFF

TITLE FIGURE 4
GET FILE = 'C:\SPSS\V\BJPS COMBINED.SAV'/MAP
DISPLAY VARLIST
TITLE FIGURE 4
WEIGHT BY WEIGHT
MEANS TABLES = RELUCTANTC RELUCTANTX5 BY BLACK BY SWAVE/STAT=ALL
GRAPH
  /TEMPLATE =     'C:\wS2000\Fig 4.SGT'
  /BAR (SIMPLE)= MEAN  ( RELUCTANTC ) BY BLACK BY SWAVE
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN  ( RELUCTANTC ) BY SWAVE BY BLACK

CONPUTE

CONPUTE


RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARE
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARE
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARE
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN

TITLE FIGURE 2
WEIGHT BY WEIGHT
VAR LABELS WHOFEARA Worried About Members of My Immediate Family
VAR LABELS WHOFEARB Worried About My Close Friends
VAR LABELS WHOFEARC Worried About My Co-Workers
VAR LABELS WHOFEARD Worried About Members of My Organizations
VAR LABELS WHOFEARE Worried About My Community
VAR LABELS WHOFEARF Worried About My Representatives in Government


FREQUENCIES VARI = WHOFEARA TO WHOFEARF RACETHNICITY BLACK/STAT=ALL
TEMPORARY
RECODE WHOFEARA TO WHOFEARF(1=2)(4=3)
FREQUENCIES VARI = WHOFEARA TO WHOFEARF RACETHNICITY BLACK/STAT=ALL
TEMPORARY
RECODE WHOFEARA TO WHOFEARF(1,2,3=1)(4=4)

FREQUENCIES VARI = WHOFEARA TO WHOFEARF RACETHNICITY BLACK/STAT=ALL
TEMPORARY
RECODE WHOFEARA TO WHOFEARE(1,2,3=1)(4=4)
CROSSTABS TABLES = WHOFEARA TO WHOFEARE BY BLACK
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk


*4 = NOT AT ALL, 1-3 SOME
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (4,4) (WHOFEARA TO WHOFEARF) 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,3) (WHOFEARA TO WHOFEARF) 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,3) (WHOFEARA TO WHOFEARE) 
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Figure 2, 5 Items.SGT'
  /BAR (SIMPLE)= PIN (1,3) (WHOFEARA TO WHOFEARE) 
  / INTERVAL CI (95)


TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1 THRU 3 =1)(4=0)
COMPUTE WHOFEARA = WHOFEARA * 100
COMPUTE WHOFEARB = WHOFEARB * 100
COMPUTE WHOFEARC = WHOFEARC * 100
COMPUTE WHOFEARD = WHOFEARD * 100
COMPUTE WHOFEARE = WHOFEARE * 100
COMPUTE WHOFEARF = WHOFEARF * 100
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( WHOFEARA TO WHOFEARE ) 
  / INTERVAL CI (95)
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1 THRU 3 =1)(4=0)
COMPUTE WHOFEARA = WHOFEARA * 100
COMPUTE WHOFEARB = WHOFEARB * 100
COMPUTE WHOFEARC = WHOFEARC * 100
COMPUTE WHOFEARD = WHOFEARD * 100
COMPUTE WHOFEARE = WHOFEARE * 100
COMPUTE WHOFEARF = WHOFEARF * 100
GRAPH
   /TEMPLATE =     'C:\wS2000\Freedom 2022, Fig 2.SGT'
  /BAR (SIMPLE)= MEAN ( WHOFEARA TO WHOFEARE ) 
  / INTERVAL CI (95)
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1 THRU 3 =1)(4=0)
COMPUTE WHOFEARA = WHOFEARA * 100
COMPUTE WHOFEARB = WHOFEARB * 100
COMPUTE WHOFEARC = WHOFEARC * 100
COMPUTE WHOFEARD = WHOFEARD * 100
COMPUTE WHOFEARE = WHOFEARE * 100
COMPUTE WHOFEARF = WHOFEARF * 100
GRAPH
   /TEMPLATE =     'C:\wS2000\Freedom 2022, Fig 2.SGT'
  /BAR (SIMPLE)= MEAN ( WHOFEARA TO WHOFEARE ) 
  / INTERVAL CI (95)

TITLE FIGURE 1
MEANS TABLES = RELUCTANTX5 RELUCTANTNOTC BY BLACK RACETHNICITY/STAT=ALL
FREQUENCIES VARI = BLACK
WEIGHT BY WEIGHT_AA
MEANS TABLES = RELUCTANTX5 RELUCTANTNOTC MEFREEM BY BLACK RACETHNICITY/STAT=ALL
FREQUENCIES VARI = BLACK

WEIGHT BY WEIGHT
TITLE THIS TRIES TO REPLICATE THE SIX ITEM INDEX
FREQUENCIES VARI =
  RELUCTANTX5 RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0
  /STAT=ALL

DESCRIPTIVES VARI =
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
WEIGHT BY WEIGHT_AA
DO IF (BLACK EQ 0)
COUNT NB461 =
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  (MISSING)
COUNT NB603 =
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  (MISSING)
COUNT NB600 =
  RELUCTANTX5 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  (MISSING)
END IF
DO IF (BLACK EQ 1)
COUNT NW409=
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
 (MISSING)
COUNT NW598=
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
 (MISSING)
COUNT NW597=
  RELUCTANTX5 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
 (MISSING)
END IF
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = NB461 NW409 NB603 NW598
  NB600 NW597
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
SUBTITLE 5 ITEM INDEX, TABLE 2
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX5
  /ENTER = PARTYID0 TO ATTEND0 
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
DESCRIPTIVES VARI =
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST


FREQUENCIES VARI = RELUCTANTX RELUCTANTX5 RELUCTANTNOTC
 /STAT=ALL
SUBTITLE REPLICATING WITH SIX ITEM INDEX
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
SPLIT FILE OFF
WEIGHT BY WEIGHT
DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

DESCRIPTIVES VARI=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
FREQUENCIES VARI =
  NB600 NW597
TITLE FIGURE 6
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 BY AGECAT BY BLACK/STAT=ALL
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
MEANS TABLES = RELUCTANTX5 BY AGE AGECAT PARTYID POLVIEWS/STAT=ALL
SPLIT FILE OFF
TITLE FIGURE 7
WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES
GRAPH
   /TEMPLATE =     'C:\wS2000\2022 RELUCTANCE BY PARTYID.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID BY BLACK
  / INTERVAL CI (95)

TEMPORARY
SELECT IF (NB600 EQ 0 OR NW597 EQ 0)/* INCLUDES VALID BLACKS AND WHITES

GRAPH
   /TEMPLATE =     'C:\wS2000\2022 ReluctanCE by POLVIEWS.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)

CONPUTE
WEIGHT BY ONE
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5) BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 BY BLACK/STAT=ALL
WEIGHT BY ONE
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5) BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 RELUCTANTC BY BLACK/STAT=ALL
WEIGHT BY WEIGHT_AA 
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5) BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 RELUCTANTC BY BLACK/STAT=ALL
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTC) BY BLACK
  / INTERVAL CI (95)



REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC RELUCTANT3
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC RELUCTANT3 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
* TOTALLY FREE
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  CENSOR1 TO CENSOR8
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

* fully free + partially free 
TEMPORARY
RECODE RELUCTANT3 (.5=0)
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY EDUC5
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGE4
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGE7
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGE7
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX RELUCTANTX5 BY POLVIEWS PARTYID /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID 
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS
  / INTERVAL CI (95)


REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50 /STAT=ALL
FREQUENCIES VARI =
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES =   WHOFEARA TO WHOFEARF BY AGECAT EDUC50 /STAT=ALL
TEMPORARY
RECODE
  WHOFEARA TO WHOFEARF
  (1=2)(4=3)
CROSSTABS TABLES =
  WHOFEARA TO WHOFEARF 
  BY AGECAT EDUC5
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = RELUCTANTX BY AGECAT /STAT=ALL

SPLIT FILE OFF
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES = RELUCTANTX BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC/STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\2022 RELUCTANCE BY PARTYID.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)


GRAPH
   /TEMPLATE =     'C:\wS2000\2022 ReluctanCE by POLVIEWS.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY AGECAT BY BLACK/STAT=ALL
TITLE FIGURE 1
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SORT CASES BY PARTYID
SPLIT FILE BY PARTYID
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SPLIT FILE OFF
FREQUENCIES VARI = PARTYID POLVIEWS /STAT=ALL
SORT CASES BY POLVIEWS
SPLIT FILE BY POLVIEWS
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50  /STAT=ALL
SPLIT FILE OFF

WEIGHT BY WEIGHT

DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

DESCRIPTIVES VARI=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL

CONPUTE
TITLE FIGURE 4
WEIGHT BY WEIGHT_AA/*FOR SPLIT AFRICAN AMERICAN
FREQUENCIES VARI = RELUCTANTC BLACK/STAT=ALL
MEANS TABLES = RELUCTANTC BY BLACK/STAT=ALL
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTC) BY BLACK
  / INTERVAL CI (95)
COMPUTE SWAVE = 2022
MEANS TABLES = RELUCTANTX5 BY BLACK/STAT=ALL
SAVE OUTFILE = 'C:\SPSS\V\2022 FIG 4.SAV'/KEEP=
  WEIGHT_AA RELUCTANTC RELUCTANTX5 BLACK SWAVE
  /MAP
EXECUTE
ADD FILES
 FILE = 'C:\SPSS\V\2022 FIG 4.SAV'/IN=IN2022/
 FILE = 'C:\SPSS\V\1987 FIG 4.SAV'/
   REN=(
   RELUCTANTX
   =
   RELUCTANTX5
   )/
  IN=IN1987/
  MAP
DISPLAY VARLIST
VAR LABELS RELUCTANTX5 Average Level of Self Censorship (Of Five Contexts)
IF (IN1987 EQ 1)SWAVE = 1987
FREQUENCIES VARI = ALL/STAT=ALL
DO IF (IN2022 EQ 1)
COMPUTE WEIGHT = WEIGHT_AA
ELSE IF (IN1987 EQ 1)
COMPUTE WEIGHT = ONE
END IF
FREQUENCIES VARI = WEIGHT/STAT=ALL
WEIGHT BY WEIGHT

MEANS TABLES = RELUCTANTC RELUCTANTX5 BY BLACK BY SWAVE/STAT=ALL
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN  ( RELUCTANTC ) BY BLACK BY SWAVE
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN  ( RELUCTANTC ) BY SWAVE BY BLACK
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN  ( RELUCTANTX5 ) BY SWAVE BY BLACK
SORT CASES BY SWAVE
SPLIT FILE BY SWAVE
MEANS TABLES = RELUCTANTC RELUCTANTX5 BY BLACK/STAT=ALL
SPLIT FILE OFF

CONPUTE

FREQUENCIES VARI =
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  RACETHNICITY
  /STAT=ALL

DO IF (BLACK EQ 0)
COUNT NB461 =
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  (MISSING)
COUNT NB603 =
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  (MISSING)
END IF
DO IF (BLACK EQ 1)
COUNT NW409=
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
 (MISSING)
COUNT NW598=
  RELUCTANTX 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
 (MISSING)
END IF
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = NB461 NW409 NB603 NW598
TEMPORARY
WEIGHT BY ONE
FREQUENCIES VARI = NB461 NW409
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  RACETHNICITY
  /STAT=ALL

DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
SUBTITLE DROP BAGAIN BECAUSE LOTS OF MISSING DATA
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 

SPLIT FILE OFF
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0
SUBTITLE DROP BAGAIN 
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0
TITLE ANALYSIS OF FIVE ITEM DV
VAR LABELS RELUCTANTX5 Average Reluctance to Speak Out
VAR LABELS AGECAT Respondent Age
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX5 BY AGECAT/STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY AGECAT/STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY BLACK BY AGECAT /STAT=ALL
MEANS TABLES = RELUCTANTX5 BY BLACK BY AGECAT /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 BY AGECAT BY BLACK/STAT=ALL

TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX5 BY AGECAT AGE/STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY AGECAT AGE/STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY BLACK BY AGECAT AGE /STAT=ALL
MEANS TABLES = RELUCTANTX5 BY BLACK BY AGECAT AGE /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX5 BY AGECAT AGE BY BLACK/STAT=ALL

WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX5 BY PARTYID /STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY PARTYID /STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX5 BY POLVIEWS /STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX5 BY POLVIEWS /STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX5 ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)




COMPUTE AGECAT = AGE
RECODE AGECAT (18 THRU 29=1)(30 THRU 39=2)(40 THRU 49=3)(50 THRU 59=4)
  (60 THRU 69=5)(70 THRU 99=6)
VAR LABELS AGECAT Age Category
VALUE LABELS AGECAT
 (1)18-29(2)30-39(3)40-49(4)50-59(5)60-69(6)70-90
FORMATS AGECAT(F1.0)
FREQUENCIES VARI = AGECAT AGE4 AGE7 RELUCTANTNOTC
MISSING VALUES TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5(77,98)
FREQUENCIES VARI = TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5
CORRELATIONS VAR= RELUCTANTX5 RELUCTANTNOTC 
  AGECAT TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5 /STAT=ALL
TEMPORARY
RECODE TRUSTGOV(1,2=2)(3,4,5=4)
RECODE NEWSIMP(1,2,3=2)(4,5=4)
CROSSTABS TABLES = TRUSTGOV NEWSIMP BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE TRUSTGOV(1,2=2)(3,4,5=4)
RECODE NEWSIMP(1,2,3=2)(4,5=4)
RECODE RELUCTANTNOTC (1 THRU 5=5)
CROSSTABS TABLES = TRUSTGOV NEWSIMP BY RELUCTANTNOTC BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
COMPUTE TRUSTGOVD = TRUSTGOV
RECODE TRUSTGOVD (1,2=2)(3,4,5=4)
VALUE LABELS TRUSTGOVD(2)Some Trust
FREQUENCIES VARI = TRUSTGOVD
COMPUTE TRUSTGOVD2= TRUSTGOVD
IF (RELUCTANTNOTC EQ 0)TRUSTGOVD2 = 0
ADD VALUE LABELS TRUSTGOVD2(0)Self-Censor
MISSING VALUES TRUSTGOVD2 (0)
COMPUTE NEWSIMPD = NEWSIMP
RECODE NEWSIMPD (1,2,3=2)(4,5=4)
FREQUENCIES VARI = NEWSIMP NEWSIMPD
COMPUTE NEWSIMPD2 = NEWSIMPD
IF (RELUCTANTNOTC EQ 0)NEWSIMPD2 = 0
MISSING VALUES NEWSIMPD2(0)
FREQUENCIES VARI = NEWSIMPD NEWSIMPD2
FREQUENCIES VARI = TRUSTGOV TRUSTGOVD TRUSTGOVD2 /STAT=ALL
CROSSTABS TABLES = TRUSTGOVD TRUSTGOVD2 NEWSIMPD NEWSIMPD2 BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA

CROSSTABS TABLES = TRUSTGOVD TRUSTGOVD2 NEWSIMPD NEWSIMPD2 BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
SPLIT FILE OFF




COMPUTE MEFREER4 = (MEFREER * -1)+1
VAR LABELS MEFREER4 Self-Censorship, Stouffer, High = Free
VALUE LABELS MEFREER4 (0)Not Free, Reluctant
  (1)Free, Not reluctant
FREQUENCIES VARI = MEFREER MEFREER4
CROSSTABS TABLES = PARTYIDS BY PARTYID
COMPUTE PARTYIDS = (SQRT((PARTYID - 4)**2))
COMPUTE POLVIEWSS = (SQRT((POLVIEWS - 3)**2))
FREQUENCIES VARI = PARTYIDS PARTYID POLVIEWS POLVIEWSS
COMPUTE PARTYIDS = PARTYIDS / 3
COMPUTE POLVIEWSS = POLVIEWSS / 2
FREQUENCIES VARI = PARTYIDS POLVIEWSS

COMPUTE PID3 = PARTYID
RECODE PID3(1 THRU 3=0)(4=1)(5 THRU 7=2)
VALUE LABELS PID3 (0)Democrat(1)Independent(2)Republican
VAR LABELS PID3 Party Identification, Trichotomized
COMPUTE IDEO3 = POLVIEWS
RECODE IDEO3(1, 2=1)(3=2)(4,5 =3)
VALUE LABELS IDEO3(1)Liberal(2)Moderate(3)Conservative
VAR LABELS IDEO3 Ideological Self-Identification, Trichotomized
FREQUENCIES VARI = PARTYID PID3 POLVIEWS IDEO3 /STAT=ALL
CROSSTABS TABLES = POLVIEWS BY POLVIEWSS
WEIGHT BY ONE
FREQUENCIES VARI =ALL /STAT=ALL
FREQUENCIES VARI = RELUCTANTX5 MEFREER 
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF
  RACETHNICITY BLACK
  /STAT=ALL
MEANS TABLES =  RELUCTANTX5  MEFREER MEFREER4
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF
  BY RACETHNICITY BLACK
  /STAT=ALL 
CORRELATIONS VARI = RELUCTANTX5 MEFREER MEFREER4 /STAT=ALL 
* ALL ELEMENTS VARY FROM 1 TO 4 
COMPUTE RELUCTANTX = MEAN.3(  WHOFEARA TO WHOFEARF)
COMPUTE RELUCTANTX3 = MEAN.3(  WHOFEARA TO WHOFEARF, MEFREER4)
* RELUCTANTX AND RELUCTANTX2 ARE THE SAME 
FREQUENCIES VARI = RELUCTANTX2 RELUCTANTX3 /STAT=ALL
COMPUTE RELUCTANTX3 = (RELUCTANTX3 - 1)/6
FREQUENCIES VARI = RELUCTANTX3/STAT=ALL
COMPUTE RELUCTANTX3 = (RELUCTANTX3 * -1) + 1
FREQUENCIES VARI = RELUCTANTX3/STAT=ALL

CORRELATION VARI = RELUCTANTX RELUCTANTX2 RELUCTANTX3 MEFREER4 /STAT=ALL

WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM RELUCTANTX /STAT=ALL
CORRELATION VARI = MEFREEM RELUCTANTX /STAT=ALL
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY MEFREEM /STAT=ALL
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column ROW TOTAL
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CORRELATIONS VARI = RELUCTANTX  RELUCTANTNOTC
  MEFREEM WHOFEARA TO WHOFEARF/STAT=ALL
CROSSTABS TABLES = WHOFEARA TO WHOFEARF BY RELUCTANTX RELUCTANTNOTC

RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARF
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARF
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARF
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN


TEMPORARY
RECODE CATOFREE (SYSMIS = -9)
CROSSTABS TABLES = CATOFREE MEFREER BY RACETHNICITY
  /MISS=INCLUDE

FREQUENCIES VARI = DURATION/STAT=ALL
FREQUENCIES VARI = RACETHNICITY
WEIGHT BY WEIGHT

FREQUENCIES VARI = RELUCTANTNOTC
COMPUTE RELUCTANT3 = RELUCTANTNOTC
RECODE RELUCTANT3 (0= 0)(1,2,3,4,5=.5)(6=1)
VAR LABELS RELUCTANT3 Trichotomize RELUCTANTNOTC
VALUE LABELS RELUCTANT3  (0)Completely Free(.5)Mixed(1)Completely Reluctant
FREQUENCIES VARI = RELUCTANTNOTC RELUCTANT3 BLACK AGECAT
CROSSTABS TABLES = MEFREEM WHOFEARA TO WHOFEARF
  BY RELUCTANTNOTC 

* TOTALLY FREE
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER BLACK OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  CENSOR1 TO CENSOR8
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

* fully free + partially free 
TEMPORARY
RECODE RELUCTANT3 (.5=0)
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER BLACK OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
* RESCALE TO ZERO TO ONE
COMPUTE PARTYID0 = ((PARTYID -1) / 6)
COMPUTE POLVIEWS0 = (POLVIEWS - 1)/4
COMPUTE NEWSIMP0 = (NEWSIMP -1)/4
COMPUTE EDUC50 = (EDUC5 -1)/4
FREQUENCIES VARI = AGE/STAT=ALL
*COMPUTE AGE0 = (AGE - 18)/73
* MAX AGE = 91, RANGE = 73
COMPUTE AGE0 = (AGE - 18)/73/*MAX AGE VARIES IN SUBSETS


COMPUTE INCOME0 = (INCOME -1)/17
RECODE BAGAIN (2=0)

VALUE LABELS BAGAIN(0)Not Reborn(1)Born Again(9)NA
FORMATS BAGAIN(F1.0)
VAR LABELS BAGAIN Whether Born Again
COMPUTE ATTEND0 = (ATTEND - 1)/8
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=ALL

DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC RELUCTANT3
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC RELUCTANT3 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
* TOTALLY FREE
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  CENSOR1 TO CENSOR8
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

* fully free + partially free 
TEMPORARY
RECODE RELUCTANT3 (.5=0)
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY EDUC5
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY AGE4
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY AGE7
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID 
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS
  / INTERVAL CI (95)
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50 /STAT=ALL
FREQUENCIES VARI =
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES =   WHOFEARA TO WHOFEARF BY AGECAT EDUC50 /STAT=ALL
TEMPORARY
RECODE
  WHOFEARA TO WHOFEARF
  (1=2)(4=3)
CROSSTABS TABLES =
  WHOFEARA TO WHOFEARF 
  BY AGECAT EDUC5
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = RELUCTANTX BY AGECAT /STAT=ALL

SPLIT FILE OFF
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES = RELUCTANTX BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC/STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\2022 RELUCTANCE BY PARTYID.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)


GRAPH
   /TEMPLATE =     'C:\wS2000\2022 ReluctanCE by POLVIEWS.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY AGECAT BY BLACK/STAT=ALL
TITLE FIGURE 1
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SORT CASES BY PARTYID
SPLIT FILE BY PARTYID
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SPLIT FILE OFF
FREQUENCIES VARI = PARTYID POLVIEWS /STAT=ALL
SORT CASES BY POLVIEWS
SPLIT FILE BY POLVIEWS
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50  /STAT=ALL
SPLIT FILE OFF

WEIGHT BY WEIGHT

DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

DESCRIPTIVES VARI=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
SAVE OUTFILE = 'C:\SPSS\V\FREE22-4.SAV'/MAP


CONPUTE

SPLIT FILE OFF
CONPUTE 

SORT CASES BY BLACK
SPLIT FILE BY BLACK

SPLIT FILE OFF

CONPUTE

FREQUENCIES VARI = BLACK MEFREER POLVIEWS PARTYID AGE  /STAT=ALL
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY MEFREEM /STAT=ALL
WEIGHT BY WEIGHT_AA
MEANS TABLES = RELUCTANTX MEFREEM BY BLACK POLVIEWS PARTYID AGE/STAT=ALL

FREQUENCIES VARI = BLACK MEFREER POLVIEWS PARTYID AGE  /STAT=ALL
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 

  /STAT=ALL
SORT CASES BY BLACK
SPLIT FILE BY BLACK
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column ROW TOTAL
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

SPLIT FILE OFF
TEMPORARY
WEIGHT BY ONE
FREQUENCIES VARI = RELUCTANTNOTC /STAT=ALL
TEMPORARY
WEIGHT BY WEIGHT
FREQUENCIES VARI = RELUCTANTNOTC RELUCTANTX /STAT=ALL
TEMPORARY
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = RELUCTANTNOTC /STAT=ALL




WEIGHT BY WEIGHT
TITLE WEIGHTED BY WEIGHT
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
MISSING VALUES BAGAIN ()
EXECUTE
FREQUENCIES VARI = BAGAIN
RECODE BAGAIN (SYSMIS = -9)
CROSSTABS TABLES = RELIG ATTEND RACETHNICITY BY BAGAIN
IF (RELIG EQ 5)BAGAIN = 2
IF (RELIG EQ 6)BAGAIN = 2
IF (RELIG EQ 7)BAGAIN = 2
IF (RELIG EQ 8)BAGAIN = 2
IF (RELIG EQ 9)BAGAIN = 2
IF (RELIG EQ 10)BAGAIN = 2
IF (RELIG EQ 11)BAGAIN = 2
IF (RELIG EQ 18)BAGAIN = 2
FREQUENCIES VARI = BAGAIN
RECODE BAGAIN (77=2)
FREQUENCIES VARI = BAGAIN
CROSSTABS TABLES = RELIG ATTEND RACETHNICITY BY BAGAIN
MISSING VALUES BAGAIN(-9,77,98)
FREQUENCIES VARI = BAGAIN

*COMPUTE PARTYIDS = (SQRT((PARTYID - 3)**2))
*COMPUTE PARTYIDS = (SQRT((PARTYID - 4)**2))
COMPUTE POLVIEWSS = (SQRT(( POLVIEWS - 3)**2))
VAR LABELS POLVIEWSS Strength of Ideological Identification (Folded)
VAR LABELS PARTYIDS Strength of Party Identification (Folded)
FREQUENCIES VARI = PARTYIDS POLVIEWSS PARTYID POLVIEWS
CROSSTABS TABLES = POLVIEWSS BY POLVIEWS 
CROSSTABS TABLES = PARTYIDS BY PARTYID
*CROSSTABS TABLES = PARTYIDS BY PARTYID
COMPUTE POLVIEWSS = POLVIEWSS /2
CROSSTABS TABLES = POLVIEWSS BY POLVIEWS 

* RESCALE TO ZERO TO ONE
COMPUTE PARTYID0 = ((PARTYID -1) / 6)
COMPUTE POLVIEWS0 = (POLVIEWS - 1)/4
COMPUTE NEWSIMP0 = (NEWSIMP -1)/4
COMPUTE EDUC50 = (EDUC5 -1)/4
*COMPUTE AGE0 = (AGE - 18)/73
COMPUTE AGE0 = (AGE - 18)/71/*MAX AGE VARIES IN SUBSETS
COMPUTE INCOME0 = (INCOME -1)/17
RECODE BAGAIN (2=0)

VALUE LABELS BAGAIN(0)Not Reborn(1)Born Again(9)NA
FORMATS BAGAIN(F1.0)
VAR LABELS BAGAIN Whether Born Again
COMPUTE ATTEND0 = (ATTEND - 1)/8
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT= ALL
TEMPORARY
RECODE MEFREER(SYSMIS = -1)
SELECT IF (MEFREER NE -1)
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=ALL
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = BLACK
SORT CASES BY BLACK
SPLIT FILE BY BLACK
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY PARTYID 
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER) BY POLVIEWS
  / INTERVAL CI (95)
MEANS TABLES = MEFREER BY PARTYID POLVIEWS/STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
WEIGHT BY WEIGHT_AA
SORT CASES BY BLACK
SPLIT FILE BY BLACK
FREQUENCIES VARI = RELUCTANTX MEFREER 
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF MEFREER4
  RACETHNICITY BLACK
  /STAT=ALL
CORRELATIONS VARI = RELUCTANTX MEFREER MEFREER4 /STAT=ALL 

SPLIT FILE OFF
MEANS TABLES =  RELUCTANTX RELUCTANTX2 RELUCTANTX3 MEFREER MEFREER4
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF
  BY RACETHNICITY BLACK
  /STAT=ALL 
RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARF MEFREER4
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARF MEFREER4
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARF MEFREER4
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN


CONPUTE
CONPUTE

DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
MEANS TABLES = MEFREER BY NEWSIMP EDUC5 INCOME0 POLVIEWSS/STAT=ALL

COUNT DEMOGMISS=
  MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  (MISSING)
FREQUENCIES VARI = DEMOGMISS AGE/STAT=ALL
COMPUTE AGECAT = AGE
RECODE AGECAT (18 THRU 29=1)(30 THRU 39=2)(40 THRU 49=3)(50 THRU 59=4)
  (60 THRU 69=5)(70 THRU 99=6)
VAR LABELS AGECAT Age Category
VALUE LABELS AGECAT
 (1)18-29(2)30-39(3)40-49(4)50-59(5)60-69(6)70-90
VAR LABELS DEMOGMISS MISSING FROM EQUATION PREDICTING SELF-CENSORSHIP
FORMATS AGECAT(F1.0)
FREQUENCIES VARI = AGECAT

TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
MEANS TABLES = RELUCTANTX MEFREER BY AGECAT GENDER POLVIEWS
  EDUC5 BAGAIN PARTYID /STAT=ALL

VAR LABELS AGE Age Category
VAR LABELS MEFREER Average Level of Self-Censorship
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY POLVIEWS
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY EDUC5
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY BAGAIN
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY PARTYID
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY AGECAT
  / INTERVAL CI (95)

SPLIT FILE OFF
MEANS TABLES = MEFREER BY PARTYID POLVIEWS/STAT=ALL
WEIGHT BY WEIGHT
MEANS TABLES = MEFREER BY PARTYID POLVIEWS/STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 

  /stat=r anova cha coeff zpp ses label f
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0 


DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= MEFREER
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

DESCRIPTIVES VARI=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL

DESCRIPTIVES VARI = WEIGHT WEIGHT_AA ONE /STAT=ALL
WEIGHT BY ONE 
FREQUENCIES VARI = WEIGHT WEIGHT_AA P_GIBS_EXP RACETHNICITY BLACK
  /STAT=ALL
WEIGHT BY WEIGHT
FREQUENCIES VARI = WEIGHT WEIGHT_AA P_GIBS_EXP RACETHNICITY BLACK
  /STAT=ALL
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = WEIGHT WEIGHT_AA P_GIBS_EXP RACETHNICITY BLACK
  /STAT=ALL
WEIGHT BY WEIGHT
TITLE WEIGHTED TO THE TOTAL POPULATION (BLACKS DOWN-WEIGHTED)
FREQUENCIES VARI = RELUCTANTX RELUCTANTNOTC /STAT=ALL
FREQUENCIES VARI =
  PARTYID
  POLVIEWS
  AGE
  GENDER
  POLVIEWS
  ATTEND
  BAGAIN
  EDUC5
  INCOME9
  SOUTH
  METRO
  INTERNET
  OWNHOME
  BLACK
  NEWSIMP
  RELUCTANTX
  MEFREEM
  MEFREECONDITION
  RELIG
  /STAT=ALL
TEMPORARY
RECODE BAGAIN (SYSMIS = -1)
CROSSTABS TABLES = RELIG BY BAGAIN
MEANS TABLES = RELUCTANTX RELUCTANTNOTC MEFREEM
  BY POLVIEWS PARTYID
  /STAT=ALL
MEANS TABLES = WHOFEARA TO WHOFEARF MEFREEM
  BY POLVIEWS PARTYID
  /STAT=ALL
TEMPORARY
RECODE WHOFEARA TO WHOFEARF(1 THRU 3=3)
CROSSTABS TABLES = WHOFEARA TO WHOFEARF MEFREEM
  BY POLVIEWS PARTYID MEFREECONDITION
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX
  PARTYID
  POLVIEWS
  AGE
  GENDER
  ATTEND
  
  EDUC5
  INCOME9
  SOUTH
  METRO
  INTERNET
  OWNHOME
  BLACK
  /stat=r anova cha coeff zpp ses label f
  /DEPE=RELUCTANTX
  /ENTER = PARTYID TO BLACK

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX MEFREEM
  PARTYID
  POLVIEWS
  AGE
  GENDER
  ATTEND
  
  EDUC5
  INCOME9
  SOUTH
  METRO
  INTERNET
  OWNHOME
  BLACK
  /stat=r anova cha coeff zpp ses label f
  /DEPE= MEFREEM
  /ENTER = PARTYID TO BLACK
WEIGHT BY ONE
FREQUENCIES VARI = BLACK
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = BLACK RELUCTANTX /STAT=ALL
SORT CASES BY BLACK
SPLIT FILE BY BLACK
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
*GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY RACE
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID
  / INTERVAL CI (95)

SPLIT FILE OFF
MEANS TABLES = RELUCTANTX BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
CONPUTE

GET FILE = 'C:\SPSS\V\RGSS-V.SAV'
  /REN = (
   FEAR1 TO FEAR8
   =
   CENSOR1 TO CENSOR8
   )
  /MAP
TITLE LOOKS LIKE DATA ARE WEIGHTED BY OVERSAMP TO BRING BLACKS DOWN
* LOOKS LIKE SCLIB IS CODED WRONGLY
* CONFIRMED BY LOOKING TO THE CODEBOOK
* CREATE SCLIB2 WITH THE CORRECT CODING
DISPLAY VARLIST
DISPLAY SORTED VARLIST
WEIGHT BY ONE
FREQUENCIES VARI = OVERSAMP RACE

MEANS TABLES = OVERSAMP BY RACE

WEIGHT BY OVERSAMP
TITLE WEIGHTED BY OVERSAMP
MISSING VALUES MEFREE (8,9)
FREQUENCIES VARI = CENSOR1 TO CENSOR8 MEFREE RACE /STAT=ALL
RECODE MEFREE(2=0)
VALUE LABELS MEFREE(0)No, feel less free
 (1)Yes, do feel as free
VAR LABELS MEFREE Feeling Free to Speak Their Minds
RECODE RACE (1=2)(2=1)
VALUE LABELS RACE
  (1)African American (2)White (3)Other
TEMPORARY
COMPUTE MEFREE = MEFREE * 100
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREE ) BY RACE
  / INTERVAL CI (95)

MEANS TABLES = MEFREE BY RACE/STAT=ALL

CROSSTABS TABLES = CENSOR1 TO CENSOR8 BY MEFREE RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
WEIGHT BY ONE
CROSSTABS TABLES = CENSOR1 TO CENSOR8 BY MEFREE RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

*TEMPORARY
*WEIGHT BY ONE

FREQUENCIES VARI = SAYNO1 TO SAYNO5/STAT=ALL
CROSSTABS TABLES = SAYNO1 TO SAYNO5 BY MEFREE RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
FREQUENCIES VAR=
  RSAYNO1 TO RSAYNO5
  RDOACT1 TO RDOACT6 DOACTX 
  DOACT1 TO DOACT6
  ALLOW1 TO ALLOW7
  /STAT=ALL
FREQUENCIES VAR = FORMWT SAMPCODE/STAT=ALL
CROSSTABS TABLES = ALLOW1 TO ALLOW1 BY RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
VALUE LABELS POLVIEWS
 (1)Extremely Liberal(2)Liberal(3)Slightly Liberal
  (4)Moderate(5)Slightly Conservative(6)Conservative
  (7)Extremely Conservative
VALUE LABELS PARTYID
  (0)Strong Democrat(1)Democrat(2)Lean toward Democrats
  (3)Independent, None
  (4)Lean toward Republicans
  (5)Republican(6)Strong Republican(7)Other Party(9)NA
VAR LABELS PARTYID Party Identification
VAR LABELS POLVIEWS Ideological Self Identification
FREQUENCIES VARI=
  LIKCON TO LIKOTH
  CONLIB TO HOMOLIB
  POLVIEWS POLVIEWX POLVIEWY
  PARTYID
  /STAT=ALL
CROSSTABS TABLES = MEFREE BY POLVIEWS PARTYID
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = POLVIEWS PARTYID BY RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREE) BY PARTYID 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREE) BY POLVIEWS
SORT CASES BY RACE
SPLIT FILE BY RACE
*GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREE) BY PARTYID POLVIEWS
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREE) BY PARTYID 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREE) BY POLVIEWS

MEANS TABLES = MEFREE BY PARTYID POLVIEWS/STAT=ALL
SPLIT FILE OFF
 

FREQUENCIES VARI = LIKCON LIKLIB/STAT=ALL
CORRELATIONS VARI = LIKCON LIKLIB/STAT=ALL
COMPUTE IDEOPOL = LIKCON - LIKLIB
VAR LABELS IDEOPOL Difference in affect toward Conservatives and Liberals
VALUE LABELS IDEOPOL(0)Same affect score
COMPUTE IDEOPOL2 = (ABS (LIKCON - LIKLIB))/10
*COMPUTE PARTPOL = AREP - ADEM
*VAR LABELS PARTPOL Difference in affect toward Conservatives and Liberals
*VALUE LABELS PARTPOL(0)Same affect score
*COMPUTE PARTPOL2 = (ABS( AREP - ADEM))
*VAR LABELS PARTPOL2 Partisan Affective Polarization
VAR LABELS IDEOPOL2 Ideological Affective Polarization 
FREQUENCIES VARI = IDEOPOL IDEOPOL2
   MEFREE
   LIKLIB LIKCON 
  /STAT=ALL
CORRELATIONS VARI = MEFREE IDEOPOL IDEOPOL2
   LIKLIB LIKCON 
  /STAT=ALL
DISPLAY SORTED VARLIST
COMPUTE SWAVE = 1987
COMPUTE SEQNUM = $CASENUM
CROSSTABS TABLES = MEFREE BY RACE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

SAVE OUTFILE = 'C:\SPSS\V\FREE1987.SAV'/KEEP=
  SEQNUM
  SWAVE
  OVERSAMP
  MEFREE
  CENSOR1 TO CENSOR8
  /MAP


GET FILE = 'C:\SPSS\V\8557_WUSTL-Weidenbaum10Main.sav'
  /REN = (
  CENSORA TO CENSORH
  =
  CENSOR1 TO CENSOR8
  )

  /MAP
DISPLAY VARLIST
DISPLAY SORTED VARLIST

COMPUTE SEQNUM = $CASENUM
COMPUTE ONE=1
WEIGHT BY ONE 
FREQUENCIES VARI = WEIGHT WEIGHT_AA P_GIBS_EXP RACETHNICITY
  /STAT=ALL
COMPUTE BLACK=RACETHNICITY
RECODE BLACK (2=1)(ELSE =0)
VALUE LABELS BLACK(1)AFRICAN AMERICAN(0)NOT AFRICAN AMERICAN
COMPUTE RACE3 = RACETHNICITY
RECODE RACE3 (3 THRU HIGHEST =3)
VALUE LABELS RACE3(1)White(2)Black(3)Other
FREQUENCIES VARI = BLACK RACE3
COMPUTE RACE4 = RACETHNICITY
FORMATS RACE4 BLACK RACE3(F2.0)
RECODE RACE4 (3,5,6=4)(4=2)(1=3)(2=1)
VALUE LABELS RACE4(1)African American(2)Hispanic(3)White(4)Other, Mixed Races
VAR LABELS RACE4 Respondent Race, Four Categories
FREQUENCIES VARI = RACE4

COMPUTE MEFREECONDITION = P_GIBS_EXP
IF (BLACK EQ 1)MEFREECONDITION = 4
VALUE LABELS MEFREECONDITION (1)Standard Stouffer Item
  (2)Stouffer, in politics(3)CATO(4)Black respondents
FREQUENCIES VARI =MEFREECONDITION
* ALL BLACK RESPONDENTS GOT THE STANDARD STOUFFER ITEM
RECODE MEFREECONDITION (4=1)
VAR LABELS MEFREECONDITION Which Version of Self-Censorship Question
FREQUENCIES VARI =MEFREECONDITION
CROSSTABS TABLES = MEFREE1_A MEFREE1_B MEFREE1_C MEFREE1_BLACK 

  BY RACETHNICITY  P_GIBS_EXP

MEANS TABLES = WEIGHT WEIGHT_AA BY RACETHNICITY P_GIBS_EXP
SORT CASES BY RACETHNICITY
SPLIT FILE BY RACETHNICITY
FREQUENCIES VARI = WEIGHT WEIGHT_AA P_GIBS_EXP
  /STAT=ALL
CORRELATIONS VARI = WEIGHT WEIGHT_AA /STAT=ALL
*MEANS TABLES = MEFREEM BY MEFREECONDITION/STAT=ALL
SPLIT FILE OFF
MISSING VALUES FREE_BLACK TO WHOFEARF(77,98,99)
FREQUENCIES VARI = FREE_BLACK TO WHOFEARF  /STAT=ALL
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = RACETHNICITY/

WEIGHT BY WEIGHT
FREQUENCIES VARI = RACETHNICITY/
MISSING VALUES PARTYID7 IDEO(-1)
FREQUENCIES VARI=ALL/STAT=ALL
FREQUENCIES VARI = PARTYID7 IDEO
MEANS TABLES = PARTYID7 BY IDEO/STAT=ALL
MEANS TABLES = IDEO BY PARTYID7/STAT=ALL

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( PARTYID7  ) BY IDEO 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( IDEO  ) BY PARTYID7 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( IDEO  ) BY PARTYID5 

MISSING VALUES GAB6A TO GAB6D(97,98)
FREQUENCIES VARI = GAB6A TO GAB6D /STAT=ALL
FREQUENCIES VARI = FREE_BLACK TO WHOFEARF  /STAT=ALL
FREQUENCIES VARI = CENSOR1 TO CENSOR8/STAT=ALL
TITLE COMBINE THE RESPONSES INTO A SINGLE MERGED VARIABLE
COMPUTE MEFREEM = -8 
DO IF (MEFREECONDITION EQ 1)
* MEFREEM can only be constructed for the portion of the sample getting
  a variant of the Stouffer question
COMPUTE MEFREEM = MEFREE1_A/*STANDARD VERSION
ELSE IF (MEFREECONDITION EQ 2)/*WHEN IT COMES TO POLITICS
COMPUTE MEFREEM = MEFREE1_B
ELSE IF (MEFREECONDITION EQ 3)
COMPUTE MEFREEM =-9
END IF
VALUE LABELS MEFREEM(1)Yes, do feel as free
  (0)No, feel less free
  (-9)CATO version
VAR LABELS MEFREEM Self Censorship, Version A & B Combined

FREQUENCIES VARI = MEFREEM
IF (RACETHNICITY EQ 2)MEFREEM=MEFREE1_BLACK/*STANDARD VERSION, BLACKS ONLY
MISSING VALUES MEFREEM (-8,-9)
RECODE MEFREEM (2=0)
FORMATS MEFREEM(F2.0)
FREQUENCIES VARI = MEFREEM
CROSSTABS TABLES = MEFREEM BY RACETHNICITY
WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM /STAT=ALL
MEANS TABLES = MEFREEM BY RACETHNICITY /STAT=ALL
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = MEFREEM /STAT=ALL
MEANS TABLES = MEFREEM BY RACETHNICITY /STAT=ALL
COMPUTE CATOFREE= MEFREE1_C
VAR LABELS CATOFREE How much do you agree or disagree with the following statement? The political climate these days prevents me from saying things I believe because others might find them offensive.
VALUE LABELS CATOFREE (1)Strongly agree(2)Somewhat agree(3)Somewhat disagree
  (4)Strongly disagree
FORMATS CATOFREE(F1.0)
FREQUENCIES VARI = CATOFREE MEFREE1_C
SUBTITLE FOR BOTH MEFREEM AND CATOFREE, HIGH = FREE
TEMPORARY
SELECT IF (RACETHNICITY NE 2)/*EXCLUDES BLACKS
WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM CATOFREE/STAT=ALL

CROSSTABS TABLES = CATOFREE BY RACETHNICITY
WEIGHT BY ONE
FREQUENCIES VARI = MEFREEM /STAT=ALL
MEANS TABLES = MEFREEM BY RACETHNICITY /STAT=ALL
WEIGHT BY WEIGHT
SORT CASES BY MEFREECONDITION
SPLIT FILE BY MEFREECONDITION
CROSSTABS TABLES = MEFREEM BY RACETHNICITY BLACK
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = MEFREEM BY RACETHNICITY /STAT=ALL
SPLIT FILE OFF
CROSSTABS TABLES = MEFREEM BY RACETHNICITY MEFREECONDITION
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
SELECT IF (RACETHNICITY EQ 2)/*BLACKS
WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM
MEANS TABLES = MEFREEM BY MEFREECONDITION/STAT=ALL
CROSSTABS TABLES = MEFREEM BY MEFREECONDITION
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
SELECT IF (RACETHNICITY NE 2)/*BLACKS
WEIGHT BY WEIGHT

CROSSTABS TABLES = MEFREEM BY MEFREECONDITION
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
SELECT IF (RACETHNICITY NE 2)/*BLACKS
WEIGHT BY WEIGHT
MEANS TABLES = MEFREEM BY MEFREECONDITION/STAT=ALL

WEIGHT BY WEIGHT

TEMPORARY
SELECT IF (RACETHNICITY EQ 2)/*BLACKS
WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = MEFREEM
* THIS COMBINES THE TWO STOUFFER CONDITIONS FOR NON-BLACKS
MEANS TABLES = MEFREEM CATOFREE BY RACETHNICITY /STAT=ALL
SORT CASES BY MEFREECONDITION
SPLIT FILE BY MEFREECONDITION
MEANS TABLES = MEFREEM CATOFREE BY RACETHNICITY /STAT=ALL
SPLIT FILE OFF
* NOTE THAT ONLY ON ONE CONDITION CAN BLACKS BE COMPARED
SORT CASES BY RACE4
SPLIT FILE BY RACE4
MEANS TABLES= MEFREEM BY MEFREECONDITION/STAT=ALL
SPLIT FILE OFF
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (0,0) (MEFREEM  ) BY RACE4
MEANS TABLES= MEFREEM BY RACE4/STAT=ALL
CROSSTABS TABLES = MEFREEM BY RACE4
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = CATOFREE BY RACE4/STAT=ALL
TEMPORARY
RECODE CATOFREE(1=2)(4=3)
CROSSTABS TABLES = CATOFREE BY RACE4
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk 

*GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (0,0) (MEFREEM  ) BY RACE4
TEMPORARY
COMPUTE MEFREEM = MEFREEM * 100
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (0,0) (MEFREEM  ) BY BLACK 
  / INTERVAL CI (95)
*mefreem by race4
GRAPH
  /TEMPLATE =     'C:\wS2000\mefreem by race4.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREEM ) BY RACE4
  / INTERVAL CI (95)
FACTOR VARI=
  CENSOR1 TO CENSOR8
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN
RELIABILITY VARI=                                                               
  CENSOR1 TO CENSOR8
  /SCALE(LEGIT)= 
  CENSOR1 TO CENSOR8
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  CENSOR1 CENSOR3 CENSOR6 CENSOR7
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN
RELIABILITY VARI=                                                               
  CENSOR1 CENSOR3 CENSOR6 CENSOR7
  /SCALE(LEGIT)= 
  CENSOR1 CENSOR3 CENSOR6 CENSOR7
  /STAT=ALL/SUMM=ALL
MEANS TABLES = 
  CENSOR1 CENSOR3 CENSOR6 CENSOR7
  BY BLACK RACE4 MEFREEM
  /STAT=ALL



CROSSTABS TABLES = CENSOR1 TO CENSOR8 BY MEFREEM
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = WHOFEARA TO WHOFEARF BY MEFREEM /STAT=ALL
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1=2)(4=3)
CROSSTABS TABLES = WHOFEARA TO WHOFEARF BY MEFREEM
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (1=1)(2,4=3)
CROSSTABS TABLES = WHOFEARA TO WHOFEARF BY MEFREEM
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE WHOFEARA TO WHOFEARF (4=4)(1,2=3)
CROSSTABS TABLES = WHOFEARA TO WHOFEARF BY MEFREEM
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) (CENSOR1 TO CENSOR8  ) BY MEFREEM 
RECODE CENSOR1 TO CENSOR8 (2=0)
ADD VALUE LABELS CENSOR1 TO CENSOR8
 (0)No, does not apply to me
COMPUTE CENSORX = MEAN.4(CENSOR1 TO CENSOR8)
COUNT CENSORC = CENSOR1 TO CENSOR8 (1)
FREQUENCIES VARI = CENSORX CENSORC
IF SYSMIS (CENSORX) CENSORC=$SYSMIS
FREQUENCIES VARI = CENSORX CENSORC /STAT=ALL

MEANS TABLES = CENSORX CENSORC BY MEFREEM RACE4
  /STAT=ALL
CROSSTABS TABLES = GAB6C BY MEFREEM
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
FREQUENCIES VARI = CENSOR1 TO CENSOR8 MEFREEM
FREQUENCIES VARI= WHOFEAR_ORDER1 TO WHOFEAR_ORDER6
CORRELATIONS VARI = CENSORX CENSORC CENSOR1 TO CENSOR8 WITH MEFREEM /STAT=ALL
FREQUENCIES VARI=
  WHOFEARA TO WHOFEARF
  /STAT=ALL
COMPUTE RELUCTANTX = MEAN.3(  WHOFEARA TO WHOFEARF)
VAR LABELS RELUCTANTX AVERAGE RELUCTANT TO SPEAK ABOUT POLITICS, HIGH = RELUCTANT
FREQUENCIES VARI = RELUCTANTX /STAT=ALL
COMPUTE RELUCTANTX = ((RELUCTANTX * - 1)+ 4)/3
FREQUENCIES VARI = RELUCTANTX /STAT=ALL
COUNT RELUCTANTNOTC=   WHOFEARA TO WHOFEARF (4)
VAR LABELS RELUCTANTNOTC NUMBER OF CONTEXTS IN WHICH NOT AT ALL RELUCTANT TO SPEAK
VALUE LABELS RELUCTANTNOTC (6)Not Reluctant At All(0)Reluctant Under All Circumstances

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( CENSOR ) BY MEFREEM

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (4,4) (WHOFEARA TO WHOFEARF) 

IF SYSMIS (RELUCTANTX ) RELUCTANTNOTC = $SYSMIS

FREQUENCIES VARI = RELUCTANTNOTC RELUCTANTX MEFREEM /STAT=ALL
CORRELATIONS VARI = RELUCTANTNOTC RELUCTANTX MEFREEM /STAT=ALL
MEANS TABLES = RELUCTANTNOTC RELUCTANTX BY MEFREEM /STAT=ALL


* CREATING ORDER OF PRESENTATION FOR 6 STIMULI
IF (WHOFEAR_ORDER1 EQ 1)WHOFEARORDER1=1/* ASKED FIRST
IF (WHOFEAR_ORDER2 EQ 1)WHOFEARORDER2=1
IF (WHOFEAR_ORDER3 EQ 1)WHOFEARORDER3=1
IF (WHOFEAR_ORDER4 EQ 1)WHOFEARORDER4=1
IF (WHOFEAR_ORDER5 EQ 1)WHOFEARORDER5=1
IF (WHOFEAR_ORDER6 EQ 1)WHOFEARORDER6=1
* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 2)WHOFEARORDER1=2
IF (WHOFEAR_ORDER2 EQ 2)WHOFEARORDER2=2
IF (WHOFEAR_ORDER3 EQ 2)WHOFEARORDER3=2
IF (WHOFEAR_ORDER4 EQ 2)WHOFEARORDER4=2
IF (WHOFEAR_ORDER5 EQ 2)WHOFEARORDER5=2
IF (WHOFEAR_ORDER6 EQ 2)WHOFEARORDER6=2
* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 3)WHOFEARORDER1=3
IF (WHOFEAR_ORDER2 EQ 3)WHOFEARORDER2=3
IF (WHOFEAR_ORDER3 EQ 3)WHOFEARORDER3=3
IF (WHOFEAR_ORDER4 EQ 3)WHOFEARORDER4=3
IF (WHOFEAR_ORDER5 EQ 3)WHOFEARORDER5=3
IF (WHOFEAR_ORDER6 EQ 3)WHOFEARORDER6=3

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 4)WHOFEARORDER1=4
IF (WHOFEAR_ORDER2 EQ 4)WHOFEARORDER2=4
IF (WHOFEAR_ORDER3 EQ 4)WHOFEARORDER3=4
IF (WHOFEAR_ORDER4 EQ 4)WHOFEARORDER4=4
IF (WHOFEAR_ORDER5 EQ 4)WHOFEARORDER5=4
IF (WHOFEAR_ORDER6 EQ 4)WHOFEARORDER6=4

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 5)WHOFEARORDER1=5
IF (WHOFEAR_ORDER2 EQ 5)WHOFEARORDER2=5
IF (WHOFEAR_ORDER3 EQ 5)WHOFEARORDER3=5
IF (WHOFEAR_ORDER4 EQ 5)WHOFEARORDER4=5
IF (WHOFEAR_ORDER5 EQ 5)WHOFEARORDER5=5
IF (WHOFEAR_ORDER6 EQ 5)WHOFEARORDER6=5

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 6)WHOFEARORDER1=6
IF (WHOFEAR_ORDER2 EQ 6)WHOFEARORDER2=6
IF (WHOFEAR_ORDER3 EQ 6)WHOFEARORDER3=6
IF (WHOFEAR_ORDER4 EQ 6)WHOFEARORDER4=6
IF (WHOFEAR_ORDER5 EQ 6)WHOFEARORDER5=6
IF (WHOFEAR_ORDER6 EQ 6)WHOFEARORDER6=6

* CREATING ORDER IN WHICH ASKED

VALUE LABELS WHOFEARORDER1 TO WHOFEARORDER6
 (1)ASKED FIRST
 (2)ASKED SECOND
 (3)ASKED THIRD
 (4)ASKED FOURTH
  (5)ASKED FIFTH
  (6)ASKED SIXTH, LAST
VAR LABELS WHOFEARORDER1 Order in which brand was asked
VAR LABELS WHOFEARORDER2 Order in which germs was asked
VAR LABELS WHOFEARORDER3 Order in which label color was asked
VAR LABELS WHOFEARORDER4 Order in which person using was asked
VAR LABELS WHOFEARORDER5 Order in which person using was asked
VAR LABELS WHOFEARORDER6 Order in which person using was asked
FREQUENCIES VARI = WHOFEARORDER1 TO WHOFEARORDER6
  WHOFEARA WHOFEARB WHOFEARC WHOFEARD WHOFEARE WHOFEARF
  /STAT=ALL
*DOES ORDER OF PRESENTATION MAKE A DIFFERENCE?
MEANS TABLES = WHOFEARA BY WHOFEARORDER1/STAT=ALL
MEANS TABLES = WHOFEARB BY WHOFEARORDER2/STAT=ALL
MEANS TABLES = WHOFEARC BY WHOFEARORDER3/STAT=ALL
MEANS TABLES = WHOFEARD BY WHOFEARORDER4/STAT=ALL
MEANS TABLES = WHOFEARE BY WHOFEARORDER5/STAT=ALL
MEANS TABLES = WHOFEARF BY WHOFEARORDER6/STAT=ALL
*DOES ORDER OF PRESENTATION MAKE A DIFFERENCE?
CROSSTABS TABLES = WHOFEARA BY WHOFEARORDER2
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARB BY WHOFEARORDER2
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARC BY WHOFEARORDER3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARD BY WHOFEARORDER4
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARE BY WHOFEARORDER5
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARF BY WHOFEARORDER6
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
COMPUTE WHOFEARX = MEAN.3(WHOFEARA TO WHOFEARF)
COUNT WHOFEARC1 = WHOFEARA TO WHOFEARF(1)
COUNT WHOFEARC2 = WHOFEARA TO WHOFEARF(1,2)
IF SYSMIS (WHOFEARX ) WHOFEARC1=$SYSMIS
IF SYSMIS (WHOFEARX ) WHOFEARC2=$SYSMIS
FREQUENCIES VARI=
  WHOFEARA TO WHOFEARF
  WHOFEARX WHOFEARC1 WHOFEARC2
  /STAT=ALL
MEANS TABLES =
  WHOFEARX WHOFEARC1 WHOFEARC2
  BY MEFREEM
  /STAT=ALL
FREQUENCIES VARI =
  RACETHNICITY
  MEFREE1_BLACK
  MEFREE1_A
  MEFREE1_B
  P_GIBS_EXP
TEMPORARY
RECODE 
  MEFREE1_BLACK
  MEFREE1_A
  MEFREE1_B
  P_GIBS_EXP
  (SYSMIS = -99)
CROSSTABS TABLES=
  MEFREE1_BLACK
  MEFREE1_A
  MEFREE1_B
  BY P_GIBS_EXP RACETHNICITY
  /MISS=INCLUDE

DO IF (BLACK EQ 1)
COMPUTE MEFREE = MEFREE1_BLACK
ELSE IF (BLACK NE 1)
COMPUTE MEFREE = MEFREE1_A
END IF
VALUE LABELS MEFREE(1)Yes, do feel as free
  (2)No, feel less free
  (77)DON'T KNOW(98)SKIPPED ON THE WEB
  (-9)ALTERNATIVE VERSION
FREQUENCIES VARI = MEFREE P_GIBS_EXP
CROSSTABS TABLES = MEFREE BY P_GIBS_EXP RACETHNICITY
MISSING VALUES MEFREE(-9)
CROSSTABS TABLES= MEFREE BY BLACK RACETHNICITY RACE3 MEFREECONDITION
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
WEIGHT BY WEIGHT_AA
CROSSTABS TABLES= MEFREE BY BLACK RACETHNICITY RACE3 MEFREECONDITION
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
SAVE OUTFILE = 'C:\SPSS\V\FREE22-2.SAV'/MAP

CONPUTE


SAVE OUTFILE = 'C:\SPSS\V\FREE22.SAV'/MAP

TITLE WORRIED ABOUT EXPRESSING VIEWS TO OTHERS 
VARSTOCASES
  /ID=SEQNUM
  /MAKE WHOFEAR FROM WHOFEARA TO WHOFEARF 
  /INDEX=FEARTYPE (6) 
  /KEEP= MEFREEM WEIGHT
  /NULL=KEEP.
VALUE LABELS FEARTYPE 
  (1)Immediate Family
  (2)Close friends
  (3)Co-workers
  (4)Member of organizations
  (5)Publicly, in community
  (6)Government representatives
TEMPORARY
RECODE MEFREEM WHOFEAR (SYSMIS = -99)
CROSSTABS TABLES = MEFREEM BY WHOFEAR/MISS=INCLUDE
WEIGHT BY WEIGHT
FREQUENCIES VARI =ALL/STAT=ALL
CROSSTABS TABLES = WHOFEAR BY FEARTYPE 
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
VAR LABELS MEFREEM Whether Feels Free to Speak
VAR LABELS FEARTYPE Worried About Expressing Views To
VAR LABELS WHOFEAR Percentage Worried to at Least Some Degree 

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,3) ( WHOFEAR ) BY FEARTYPE, MEFREEM
GRAPH
   /TEMPLATE =     'C:\wS2000\worried about expressing.SGT'
  /BAR (SIMPLE)= PIN (1,3) ( WHOFEAR ) BY FEARTYPE, MEFREEM


GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY WHOFEAR, FEARTYPE 
CONPUTE

GET FILE = 'C:\SPSS\V\FREE22.SAV'/MAP
DISPLAY VARLIST
TITLE CENSORSHIP GRAPH
VARSTOCASES
  /ID=SEQNUM
  /MAKE CENSOR FROM CENSOR1 TO CENSOR8
  /INDEX=CENTYPE (8) 
  /KEEP= MEFREEM WEIGHT
  /NULL=KEEP.
VALUE LABELS CENTYPE (1)Creates enemies
  (2)I lack knowledge
  (3)People would think my views strange
  (4)Few friends care about politics
  (5)I hold the same views as others
  (6)I don't like arguments
  (7)I worry about what people think of me
  (8)I worry that the government would find out
TEMPORARY
RECODE MEFREEM CENSOR (SYSMIS = -99)
CROSSTABS TABLES = MEFREEM BY CENSOR/MISS=INCLUDE
WEIGHT BY WEIGHT
FREQUENCIES VARI =ALL/STAT=ALL
CROSSTABS TABLES = CENSOR BY CENTYPE 
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY CENSOR, CENTYPE 

GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY CENSOR, CENTYPE MEFREEM
GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY CENSOR, MEFREEM CENTYPE 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( CENSOR ) BY CENTYPE
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( CENSOR ) BY MEFREEM
VAR LABELS MEFREEM Whether Feels Free to Speak
VAR LABELS CENTYPE Reluctance to Speak Out
VAR LABELS CENSOR Percentage Reluctant 

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( CENSOR ) BY CENTYPE, MEFREEM
CONPUTE

GET FILE = 'C:\SPSS\V\RGSS-V.SAV'/MAP
DISPLAY VARLIST
FREQUENCIES VARI = TALKPOL1 TO TRAD /STAT=ALL
FREQUENCIES VARI = MEFREE
  FEAR1 TO FEAR8

CONPUTE

WEIGHT BY WEIGHT_AA
FREQUENCIES VARI = FREE_BLACK TO WHOFEARF  /STAT=ALL

CONPUTE

TITLE SOURCES OF CONSTRAINTS
VARSTOCASES
  /ID=SEQNUM
  /MAKE WHOFEAR FROM WHOFEARA TO WHOFEARF 
  /INDEX=FEARTYPE (6) 
  /KEEP= MEFREEM WEIGHT
  /NULL=KEEP.
VALUE LABELS FEARTYPE 
  (1)Immediate Family
  (2)Close friends
  (3)Co-workers
  (4)Member of organizations
  (5)Publicly, in community
  (6)Government representatives
TEMPORARY
RECODE MEFREEM WHOFEAR (SYSMIS = -99)
CROSSTABS TABLES = MEFREEM BY WHOFEAR/MISS=INCLUDE
WEIGHT BY WEIGHT
FREQUENCIES VARI =ALL/STAT=ALL
CROSSTABS TABLES = WHOFEAR BY FEARTYPE 
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
VAR LABELS MEFREEM Whether Feels Free to Speak
VAR LABELS FEARTYPE Worried About Expressing Views To
VAR LABELS WHOFEAR Percentage Worried to at Least Some Degree 

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( WHOFEAR ) BY FEARTYPE, MEFREEM


GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY WHOFEAR, FEARTYPE 
CONPUTE

GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY WHOFEAR, FEARTYPE MEFREEM
GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY WHOFEAR, MEFREEM FEARTYPE 
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( WHOFEAR ) BY FEARTYPE
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,1) ( WHOFEAR ) BY MEFREEM



*GET FILE = 'C:\SPSS\V\TOL05-11.SAV'/
GET FILE = 'C:\SPSS\V\ALITOARC.SAV'/
  MAP
DISPLAY VARLIST
FREQUENCIES VARI = TMEFREE
*CROSSTABS TABLES = TMEFREE BY MEFREE
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
DISPLAY SORTED VARLIST

* CREATING ORDER OF PRESENTATION FOR 6 STIMULI
IF (WHOFEAR_ORDER1 EQ 1)WHOFEARORDER1=1/* ASKED FIRST
IF (WHOFEAR_ORDER2 EQ 1)WHOFEARORDER2=1
IF (WHOFEAR_ORDER3 EQ 1)WHOFEARORDER3=1
IF (WHOFEAR_ORDER4 EQ 1)WHOFEARORDER4=1
IF (WHOFEAR_ORDER5 EQ 1)WHOFEARORDER5=1
IF (WHOFEAR_ORDER6 EQ 1)WHOFEARORDER6=1
* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 2)WHOFEARORDER1=2
IF (WHOFEAR_ORDER2 EQ 2)WHOFEARORDER2=2
IF (WHOFEAR_ORDER3 EQ 2)WHOFEARORDER3=2
IF (WHOFEAR_ORDER4 EQ 2)WHOFEARORDER4=2
IF (WHOFEAR_ORDER5 EQ 2)WHOFEARORDER5=2
IF (WHOFEAR_ORDER6 EQ 2)WHOFEARORDER6=2
* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 3)WHOFEARORDER1=3
IF (WHOFEAR_ORDER2 EQ 3)WHOFEARORDER2=3
IF (WHOFEAR_ORDER3 EQ 3)WHOFEARORDER3=3
IF (WHOFEAR_ORDER4 EQ 3)WHOFEARORDER4=3
IF (WHOFEAR_ORDER5 EQ 3)WHOFEARORDER5=3
IF (WHOFEAR_ORDER6 EQ 3)WHOFEARORDER6=3

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 4)WHOFEARORDER1=4
IF (WHOFEAR_ORDER2 EQ 4)WHOFEARORDER2=4
IF (WHOFEAR_ORDER3 EQ 4)WHOFEARORDER3=4
IF (WHOFEAR_ORDER4 EQ 4)WHOFEARORDER4=4
IF (WHOFEAR_ORDER5 EQ 4)WHOFEARORDER5=4
IF (WHOFEAR_ORDER6 EQ 4)WHOFEARORDER6=4

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 5)WHOFEARORDER1=5
IF (WHOFEAR_ORDER2 EQ 5)WHOFEARORDER2=5
IF (WHOFEAR_ORDER3 EQ 5)WHOFEARORDER3=5
IF (WHOFEAR_ORDER4 EQ 5)WHOFEARORDER4=5
IF (WHOFEAR_ORDER5 EQ 5)WHOFEARORDER5=5
IF (WHOFEAR_ORDER6 EQ 5)WHOFEARORDER6=5

* CREATING ORDER IN WHICH ASKED
* WHOFEAR 
IF (WHOFEAR_ORDER1 EQ 6)WHOFEARORDER1=6
IF (WHOFEAR_ORDER2 EQ 6)WHOFEARORDER2=6
IF (WHOFEAR_ORDER3 EQ 6)WHOFEARORDER3=6
IF (WHOFEAR_ORDER4 EQ 6)WHOFEARORDER4=6
IF (WHOFEAR_ORDER5 EQ 6)WHOFEARORDER5=6
IF (WHOFEAR_ORDER6 EQ 6)WHOFEARORDER6=6

* CREATING ORDER IN WHICH ASKED

VALUE LABELS WHOFEARORDER1 TO WHOFEARORDER6
 (1)ASKED FIRST
 (2)ASKED SECOND
 (3)ASKED THIRD
 (4)ASKED FOURTH
  (5)ASKED FIFTH
  (6)ASKED SIXTH, LAST
VAR LABELS WHOFEARORDER1 Order in which brand was asked
VAR LABELS WHOFEARORDER2 Order in which germs was asked
VAR LABELS WHOFEARORDER3 Order in which label color was asked
VAR LABELS WHOFEARORDER4 Order in which person using was asked
VAR LABELS WHOFEARORDER5 Order in which person using was asked
VAR LABELS WHOFEARORDER6 Order in which person using was asked
FREQUENCIES VARI = WHOFEARORDER1 TO WHOFEARORDER6
  WHOFEARA WHOFEARB WHOFEARC WHOFEARD WHOFEARE WHOFEARF
  /STAT=ALL
*DOES ORDER OF PRESENTATION MAKE A DIFFERENCE?
WEIGHT BY WTATTN1
MEANS TABLES = WHOFEARA BY WHOFEARORDER1/STAT=ALL
MEANS TABLES = WHOFEARB BY WHOFEARORDER2/STAT=ALL
MEANS TABLES = WHOFEARC BY WHOFEARORDER3/STAT=ALL
MEANS TABLES = WHOFEARD BY WHOFEARORDER4/STAT=ALL
MEANS TABLES = WHOFEARE BY WHOFEARORDER5/STAT=ALL
MEANS TABLES = WHOFEARF BY WHOFEARORDER6/STAT=ALL
*DOES ORDER OF PRESENTATION MAKE A DIFFERENCE?
CROSSTABS TABLES = WHOFEARA BY WHOFEARORDER2
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARB BY WHOFEARORDER2
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARC BY WHOFEARORDER3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARD BY WHOFEARORDER4
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARE BY WHOFEARORDER5
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CROSSTABS TABLES = WHOFEARF BY WHOFEARORDER6
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TITLE COMBINE THE RESPONSES INTO A SINGLE MERGED VARIABLE 
COMPUTE MEFREEM = MEFREE1_A
VALUE LABELS MEFREEM(1)Yes, do feel as free
  (0)No, feel less free
VAR LABELS MEFREEM Self Censorship, Version A & B Combined
FREQUENCIES VARI = MEFREEM
RECODE MEFREE1_A (SYSMIS = -9)
EXECUTE
IF (MEFREE1_A EQ -9)MEFREEM = MEFREE1_B
FREQUENCIES VARI = MEFREEM MEFREE1_A MEFREE1_B
RECODE MEFREEM(2=0)
FREQUENCIES VARI = MEFREEM MEFREE1_A MEFREE1_B
RECODE MEFREE1_A (SYSMIS = -9)
EXECUTE
IF (MEFREE1_A EQ -9)MEFREEM = MEFREE1_B
FREQUENCIES VARI = MEFREEM MEFREE1_A MEFREE1_B
RECODE MEFREEM(2=0)
FREQUENCIES VARI = MEFREEM MEFREE1_A MEFREE1_B


EXECUTE
MISSING VALUES BAGAIN (9)
COMPUTE OWNHOME = DWELOWN 
RECODE OWNHOME (2,3=0)
VALUE LABELS OWNHOME (1)Own or is buying(0)Rent, Other
COMPUTE METRO= XNORCSIZ
RECODE METRO (1,2,3,4,5=1)
  (6,7,8,9,10=0)
VALUE LABELS METRO(0)Not Metropolitan Area(1)Metropolitan Area
MISSING VALUES INCOME86 (21,98,99)
COMPUTE GENDER = SEX
RECODE GENDER (2=0)
VALUE LABELS GENDER (0)Female(1)Male
COMPUTE AGE0 = (AGE -18)/71
COMPUTE POLKNOW0 = POLKNOW/3
COMPUTE ATTEND0 = ATTEND/8
COMPUTE INCOME860 = (INCOME86 - 1)/19
COMPUTE DEGREE0 = DEGREE /4
FREQUENCIES VARI =
  MEFREER
  DEGREE0 METRO SOUTH BLACK
  OWNHOME AGE0 GENDER INCOME860 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL
  IDEOPOL2
  OPLEADD
  POLKNOW0
  ATTEND0
  BAGAIN
  /STAT=ALL





GET FILE = 'C:\SPSS\V\RGSS-10.SAV'/MAP
DISPLAY VARLIST
DISPLAY SORTED VARLIST
WEIGHT BY ONE/*BEC WILL SPLIT B AND WHITE
COMPUTE INCOME0 = (INCOME86 - 1)/19
COMPUTE EDUC50 = DEGREE /4
FREQUENCIES VARI = POLVIEWS POLVIEWX POLVIEWY
FREQUENCIES VARI = LIKCON LIKLIB /STAT=ALL
COMPUTE LIKDIF = LIKCON - LIKLIB
COMPUTE LIKDIF2 = ABS(LIKDIF)
FREQUENCIES VARI = LIKDIF LIKDIF2 /STAT=ALL
FREQUENCIES VARI = LIKCON TO LIKOTH/STAT=ALL
MEANS TABLES = LIKCON LIKLIB LIKDIF BY POLVIEWS/STAT=ALL
CORRELATIONS VARI = POLVIEWS LIKCON LIKLIB LIKDIF LIKDIF2/STAT=ALL
TEMPORARY
RECODE POLVIEWS0 (SYSMIS =-9)
SELECT IF (POLVIEWS0 EQ -9)
FREQUENCIES VARI = POLVIEWS LIKCON LIKLIB LIKDIF/STAT=ALL
MEANS TABLES = LIKLIB LIKCON LIKDIF LIKDIF2 BY BLACK/STAT=ALL

TEMPORARY
SELECT IF (LIKDIF EQ 0)
FREQUENCIES VARI = POLVIEWS 

COMPUTE POLVIEWS2 = POLVIEWS 
FREQUENCIES VARI = POLVIEWS2 POLVIEWS
MISSING VALUES POLVIEWS()
FREQUENCIES VARI = POLVIEWS 
RECODE POLVIEWS2 (SYSMIS = -9)
EXECUTE
*IF ((POLVIEWS GT 7) AND (LIKCON EQ LIKLIB))POLVIEWS2 = 4
DO IF (POLVIEWS GT 7)/*MISSING DATA
IF (LIKDIF EQ 0) POLVIEWS2 = 4
END IF
FREQUENCIES VARI = POLVIEWS POLVIEWS2
CROSSTABS TABLES = POLVIEWS2 BY POLVIEWS
MISSING VALUES POLVIEWS POLVIEWS2 (-9,8,9)
FREQUENCIES VARI = POLVIEWS POLVIEWS2
COMPUTE POLVIEWS0 = (POLVIEWS2 - 1)/6
COMPUTE POLVIEWSS = (SQRT(( POLVIEWS2 - 4)**2))
FREQUENCIES VARI = POLVIEWS0 POLVIEWSS/STAT=ALL
COMPUTE POLVIEWSS = POLVIEWSS /3

FREQUENCIES VARI=
  BLACK
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  OPLEADD POLKNOW0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=ALL
TEMPORARY
RECODE MEFREER (SYSMIS = -9)
SELECT IF (MEFREER NE -9)
SELECT IF (BLACK LE 1)
FREQUENCIES VARI=
  BLACK
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  OPLEADD POLKNOW0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
FREQUENCIES VARI = BLACK RACE
SORT CASES BY BLACK
SPLIT FILE BY BLACK
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREE MEFREER
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREE MEFREER
  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = MEFREE
*REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREE

  DEGREE0 METRO SOUTH 
  OWNHOME AGE0 GENDER INCOME860 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL2
  OPLEADD
  POLKNOW0
  ATTEND0
  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = DEGREE0 TO ATTEND0
*REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 

  DEGREE0 METRO SOUTH 
  OWNHOME AGE0 GENDER INCOME860 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL2
  OPLEADD
  POLKNOW0
  ATTEND0
  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = DEGREE0 TO ATTEND0


*REGRESSION MISS=PAIR/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREE

  DEGREE0 METRO SOUTH 
  OWNHOME AGE0 GENDER INCOME860 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL2
  OPLEADD
  POLKNOW0
  ATTEND0
  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = DEGREE0 TO ATTEND0
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE

  EDUC50 METRO SOUTH 
  OWNHOME AGE0 GENDER INCOME0 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL2
  OPLEADD
  POLKNOW0
  ATTEND0
  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= MEFREER
  /ENTER = EDUC50 TO ATTEND0
REGRESSION MISS=PAIR/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE

  EDUC50 METRO SOUTH 
  OWNHOME AGE0 GENDER INCOME0 POLVIEWS0
  PARTYID0 
  POLVIEWSS
  PARTYIDS
  IDEOPOL2
  OPLEADD
  POLKNOW0
  BAGAIN
  ATTEND0
  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= MEFREER
  /ENTER = EDUC50 TO ATTEND0
* BIG COST OF MISSING DATA: IDEOPOL2 but also POLVIEWS
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0
  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0
  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2 
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0
  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0
CONPUTE

DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
COUNT DEMOGMISS = MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0 (MISSING)
FREQUENCIES VARI = DEMOGMISS 
VAR LABELS DEMOGMISS MISSING FROM EQUATION PREDICTING SELF-CENSORSHIP

DESCRIPTIVES VARI=  IDEOPOL2 /STAT=ALL

TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
MEANS TABLES = RELUCTANTX MEFREER BY AGECAT GENDER POLVIEWS
  DEGREE BAGAIN PARTYID /STAT=ALL

VAR LABELS AGE Age Category
VAR LABELS MEFREER Average Level of Self-Censorship
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY AGECAT
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY POLVIEWS
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY DEGREE
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY BAGAIN
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (DEMOGMISS EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( MEFREER ) BY PARTYID
  / INTERVAL CI (95)

SPLIT FILE OFF
DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BPOLKNOW0
  BOPLEADD
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BPOLKNOW0
  BOPLEADD
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER MEFREE
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  POLKNOW0
  OPLEADD

  EDUC50 AGE0 GENDER   
  OWNHOME INCOME0 
  METRO SOUTH BAGAIN
  ATTEND0
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BPOLKNOW0
  BOPLEADD
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 

  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0
  /ENTER=BLACK
  /ENTER=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BPOLKNOW0
  BOPLEADD
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 


TITLE END 1987
*GET FILE =  'C:\SPSS\V\FREE22-2.SAV'
  /REN = (
  PARTYID7
  IDEO
  QPA023
  QBORN
  QPA003B
  =
  PARTYID
  POLVIEWS
  
  ATTEND
  BAGAIN
  NEWSIMP
  )
  /MAP


RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARF
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARF
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARF
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN


TITLE WORRIED ABOUT EXPRESSING VIEWS TO OTHERS 
VARSTOCASES
  /ID=SEQNUM
  /MAKE WHOFEAR FROM WHOFEARA TO WHOFEARF 
  /INDEX=FEARTYPE (6) 
  /KEEP= MEFREEM WEIGHT
  /NULL=KEEP.
VALUE LABELS FEARTYPE 
  (1)Immediate Family
  (2)Close friends
  (3)Co-workers
  (4)Member of organizations
  (5)Publicly, in community
  (6)Government representatives
TEMPORARY
RECODE MEFREEM WHOFEAR (SYSMIS = -99)
CROSSTABS TABLES = MEFREEM BY WHOFEAR/MISS=INCLUDE
WEIGHT BY WEIGHT
FREQUENCIES VARI =ALL/STAT=ALL
CROSSTABS TABLES = WHOFEAR BY FEARTYPE 
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
VAR LABELS MEFREEM Whether Feels Free to Speak
VAR LABELS FEARTYPE Worried About Expressing Views To
VAR LABELS WHOFEAR Percentage Worried to at Least Some Degree 

GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= PIN (1,3) ( WHOFEAR ) BY FEARTYPE, MEFREEM
GRAPH
   /TEMPLATE =     'C:\wS2000\worried about expressing.SGT'
  /BAR (SIMPLE)= PIN (1,3) ( WHOFEAR ) BY FEARTYPE, MEFREEM


GRAPH
  /TEMPLATE = 'C:\WS2000\Purple Bar3.sgt'
  /BAR (GROUPED)= PCT BY WHOFEAR, FEARTYPE 
CONPUTE




COMPUTE RELUCTANTX5 = MEAN.3(  WHOFEARA TO WHOFEARE)
FREQUENCIES VARI = RELUCTANTX5  /STAT=ALL
COMPUTE RELUCTANTX5 = (RELUCTANTX5 - 1)/5
FREQUENCIES VARI = RELUCTANTX5/STAT=ALL
COMPUTE RELUCTANTX5 = (RELUCTANTX5 * -1) + 1
FREQUENCIES VARI = RELUCTANTX5/STAT=ALL

CORRELATION VARI = RELUCTANTX RELUCTANTX5 MEFREER4 /STAT=ALL

WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM RELUCTANTX5 /STAT=ALL
CORRELATION VARI = MEFREEM RELUCTANTX5 /STAT=ALL
MEANS TABLES = RELUCTANTX5 RELUCTANTNOTC BY MEFREEM /STAT=ALL
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column ROW TOTAL
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CORRELATIONS VARI = RELUCTANTX5  RELUCTANTNOTC
  MEFREEM WHOFEARA TO WHOFEARE/STAT=ALL
CROSSTABS TABLES = WHOFEARA TO WHOFEARE BY RELUCTANTX RELUCTANTNOTC

RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARE
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARE
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARE
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN


*START ANALYSIS OF 6 ITEM DV

VAR LABELS RELUCTANTX Average Reluctance to Speak Out
VAR LABELS AGECAT Respondent Age
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX BY AGECAT/STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY AGECAT/STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY BLACK BY AGECAT /STAT=ALL
MEANS TABLES = RELUCTANTX BY BLACK BY AGECAT /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY AGECAT BY BLACK/STAT=ALL

TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX BY AGECAT AGE/STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY AGECAT AGE/STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY BLACK BY AGECAT AGE /STAT=ALL
MEANS TABLES = RELUCTANTX BY BLACK BY AGECAT AGE /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY AGECAT AGE BY BLACK/STAT=ALL

WEIGHT BY WEIGHT_AA
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX BY PARTYID /STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY PARTYID /STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB603 EQ 0) 
MEANS TABLES = RELUCTANTX BY POLVIEWS /STAT=ALL
TEMPORARY
SELECT IF (NW598 EQ 0)
MEANS TABLES = RELUCTANTX BY POLVIEWS /STAT=ALL
TEMPORARY
SELECT IF (NB603 EQ 0 OR NW598 EQ 0)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)

CONPUTE


COMPUTE AGECAT = AGE
RECODE AGECAT (18 THRU 29=1)(30 THRU 39=2)(40 THRU 49=3)(50 THRU 59=4)
  (60 THRU 69=5)(70 THRU 99=6)
VAR LABELS AGECAT Age Category
VALUE LABELS AGECAT
 (1)18-29(2)30-39(3)40-49(4)50-59(5)60-69(6)70-90
FORMATS AGECAT(F1.0)
FREQUENCIES VARI = AGECAT AGE4 AGE7 RELUCTANTNOTC
MISSING VALUES TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5(77,98)
FREQUENCIES VARI = TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5
CORRELATIONS VAR= RELUCTANTX RELUCTANTNOTC 
  AGECAT TRUSTGOV GAB27A GAB27B NEWSIMP VIOL5 /STAT=ALL
TEMPORARY
RECODE TRUSTGOV(1,2=2)(3,4,5=4)
RECODE NEWSIMP(1,2,3=2)(4,5=4)
CROSSTABS TABLES = TRUSTGOV NEWSIMP BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE TRUSTGOV(1,2=2)(3,4,5=4)
RECODE NEWSIMP(1,2,3=2)(4,5=4)
RECODE RELUCTANTNOTC (1 THRU 6=6)
CROSSTABS TABLES = TRUSTGOV NEWSIMP BY RELUCTANTNOTC BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
COMPUTE TRUSTGOVD = TRUSTGOV
RECODE TRUSTGOVD (1,2=2)(3,4,5=4)
VALUE LABELS TRUSTGOVD(2)Some Trust
FREQUENCIES VARI = TRUSTGOVD
COMPUTE TRUSTGOVD2= TRUSTGOVD
IF (RELUCTANTNOTC EQ 0)TRUSTGOVD2 = 0
ADD VALUE LABELS TRUSTGOVD2(0)Self-Censor
MISSING VALUES TRUSTGOVD2 (0)
COMPUTE NEWSIMPD = NEWSIMP
RECODE NEWSIMPD (1,2,3=2)(4,5=4)
FREQUENCIES VARI = NEWSIMP NEWSIMPD
COMPUTE NEWSIMPD2 = NEWSIMPD
IF (RELUCTANTNOTC EQ 0)NEWSIMPD2 = 0
MISSING VALUES NEWSIMPD2(0)
FREQUENCIES VARI = NEWSIMPD NEWSIMPD2
FREQUENCIES VARI = TRUSTGOV TRUSTGOVD TRUSTGOVD2 /STAT=ALL
CROSSTABS TABLES = TRUSTGOVD TRUSTGOVD2 NEWSIMPD NEWSIMPD2 BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA

CROSSTABS TABLES = TRUSTGOVD TRUSTGOVD2 NEWSIMPD NEWSIMPD2 BY AGECAT
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
SPLIT FILE OFF




COMPUTE MEFREER4 = (MEFREER * -1)+1
VAR LABELS MEFREER4 Self-Censorship, Stouffer, High = Free
VALUE LABELS MEFREER4 (0)Not Free, Reluctant
  (1)Free, Not reluctant
FREQUENCIES VARI = MEFREER MEFREER4
CROSSTABS TABLES = PARTYIDS BY PARTYID
COMPUTE PARTYIDS = (SQRT((PARTYID - 4)**2))
COMPUTE POLVIEWSS = (SQRT((POLVIEWS - 3)**2))
FREQUENCIES VARI = PARTYIDS PARTYID POLVIEWS POLVIEWSS
COMPUTE PARTYIDS = PARTYIDS / 3
COMPUTE POLVIEWSS = POLVIEWSS / 2
FREQUENCIES VARI = PARTYIDS POLVIEWSS

COMPUTE PID3 = PARTYID
RECODE PID3(1 THRU 3=0)(4=1)(5 THRU 7=2)
VALUE LABELS PID3 (0)Democrat(1)Independent(2)Republican
VAR LABELS PID3 Party Identification, Trichotomized
COMPUTE IDEO3 = POLVIEWS
RECODE IDEO3(1, 2=1)(3=2)(4,5 =3)
VALUE LABELS IDEO3(1)Liberal(2)Moderate(3)Conservative
VAR LABELS IDEO3 Ideological Self-Identification, Trichotomized
FREQUENCIES VARI = PARTYID PID3 POLVIEWS IDEO3 /STAT=ALL
CROSSTABS TABLES = POLVIEWS BY POLVIEWSS
WEIGHT BY ONE
FREQUENCIES VARI =ALL /STAT=ALL
FREQUENCIES VARI = RELUCTANTX MEFREER 
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF
  RACETHNICITY BLACK
  /STAT=ALL
MEANS TABLES =  RELUCTANTX  MEFREER MEFREER4
  RELUCTANTNOTC  WHOFEARA TO WHOFEARF
  BY RACETHNICITY BLACK
  /STAT=ALL 
CORRELATIONS VARI = RELUCTANTX MEFREER MEFREER4 /STAT=ALL 
* ALL ELEMENTS VARY FROM 1 TO 4 
COMPUTE RELUCTANTX2 = MEAN.3(  WHOFEARA TO WHOFEARF)
COMPUTE RELUCTANTX3 = MEAN.3(  WHOFEARA TO WHOFEARF, MEFREER4)
* RELUCTANTX AND RELUCTANTX2 ARE THE SAME 
FREQUENCIES VARI = RELUCTANTX2 RELUCTANTX3 /STAT=ALL
COMPUTE RELUCTANTX3 = (RELUCTANTX3 - 1)/6
FREQUENCIES VARI = RELUCTANTX3/STAT=ALL
COMPUTE RELUCTANTX3 = (RELUCTANTX3 * -1) + 1
FREQUENCIES VARI = RELUCTANTX3/STAT=ALL

CORRELATION VARI = RELUCTANTX RELUCTANTX2 RELUCTANTX3 MEFREER4 /STAT=ALL

WEIGHT BY WEIGHT
FREQUENCIES VARI = MEFREEM RELUCTANTX /STAT=ALL
CORRELATION VARI = MEFREEM RELUCTANTX /STAT=ALL
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY MEFREEM /STAT=ALL
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column ROW TOTAL
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE RELUCTANTNOTC (6=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CORRELATIONS VARI = RELUCTANTX  RELUCTANTNOTC
  MEFREEM WHOFEARA TO WHOFEARF/STAT=ALL
CROSSTABS TABLES = WHOFEARA TO WHOFEARF BY RELUCTANTX RELUCTANTNOTC

RELIABILITY VARI=                                                               
  WHOFEARA TO WHOFEARF
  /SCALE(LEGIT)= 
  WHOFEARA TO WHOFEARF
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  WHOFEARA TO WHOFEARF
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN


TEMPORARY
RECODE CATOFREE (SYSMIS = -9)
CROSSTABS TABLES = CATOFREE MEFREER BY RACETHNICITY
  /MISS=INCLUDE

FREQUENCIES VARI = DURATION/STAT=ALL
FREQUENCIES VARI = RACETHNICITY
WEIGHT BY WEIGHT

FREQUENCIES VARI = RELUCTANTNOTC
COMPUTE RELUCTANT3 = RELUCTANTNOTC
RECODE RELUCTANT3 (0= 0)(1,2,3,4,5=.5)(6=1)
VAR LABELS RELUCTANT3 Trichotomize RELUCTANTNOTC
VALUE LABELS RELUCTANT3  (0)Completely Free(.5)Mixed(1)Completely Reluctant
FREQUENCIES VARI = RELUCTANTNOTC RELUCTANT3 BLACK AGECAT
CROSSTABS TABLES = MEFREEM WHOFEARA TO WHOFEARF
  BY RELUCTANTNOTC 

* TOTALLY FREE
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER BLACK OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  CENSOR1 TO CENSOR8
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

* fully free + partially free 
TEMPORARY
RECODE RELUCTANT3 (.5=0)
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER BLACK OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
* RESCALE TO ZERO TO ONE
COMPUTE PARTYID0 = ((PARTYID -1) / 6)
COMPUTE POLVIEWS0 = (POLVIEWS - 1)/4
COMPUTE NEWSIMP0 = (NEWSIMP -1)/4
COMPUTE EDUC50 = (EDUC5 -1)/4
FREQUENCIES VARI = AGE/STAT=ALL
*COMPUTE AGE0 = (AGE - 18)/73
* MAX AGE = 91, RANGE = 73
COMPUTE AGE0 = (AGE - 18)/73/*MAX AGE VARIES IN SUBSETS


COMPUTE INCOME0 = (INCOME -1)/17
RECODE BAGAIN (2=0)

VALUE LABELS BAGAIN(0)Not Reborn(1)Born Again(9)NA
FORMATS BAGAIN(F1.0)
VAR LABELS BAGAIN Whether Born Again
COMPUTE ATTEND0 = (ATTEND - 1)/8
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=ALL

DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST

REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC RELUCTANT3
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC RELUCTANT3 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  BLACK
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY WEIGHT_AA
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
* TOTALLY FREE
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  CENSOR1 TO CENSOR8
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk

* fully free + partially free 
TEMPORARY
RECODE RELUCTANT3 (.5=0)
CROSSTABS TABLES = POLVIEWS PARTYID  PID3 IDEO3
  POLVIEWSS PARTYIDS GENDER OWNHOME
  BAGAIN 
  AGECAT AGE4 ATTEND EDUC5
  TRUSTGOV
  BY RELUCTANT3
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY EDUC5
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY AGE4
  / INTERVAL CI (95)
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY AGE7
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID 
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS
  / INTERVAL CI (95)
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC MEFREER
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= MEFREER
  /ENTER = PARTYID0 TO ATTEND0 
DESCRIPTIVES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  BLACK
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  BAGAIN ATTEND0 
  /stat=r anova cha coeff zpp ses label f COLLIN TOL
  /DEPE= RELUCTANTX
  /ENTER = PARTYID0 TO ATTEND0 
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50 /STAT=ALL
FREQUENCIES VARI =
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES =   WHOFEARA TO WHOFEARF BY AGECAT EDUC50 /STAT=ALL
TEMPORARY
RECODE
  WHOFEARA TO WHOFEARF
  (1=2)(4=3)
CROSSTABS TABLES =
  WHOFEARA TO WHOFEARF 
  BY AGECAT EDUC5
         /cells=count column
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
MEANS TABLES = RELUCTANTX BY AGECAT /STAT=ALL

SPLIT FILE OFF
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC
  WHOFEARA TO WHOFEARF
  /STAT=ALL
MEANS TABLES = RELUCTANTX BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY POLVIEWS PARTYID /STAT=ALL
CORRELATIONS VARI = RELUCTANTX RELUCTANTNOTC/STAT=ALL
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\2022 RELUCTANCE BY PARTYID.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)


GRAPH
   /TEMPLATE =     'C:\wS2000\2022 ReluctanCE by POLVIEWS.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
MEANS TABLES = RELUCTANTX BY AGECAT BY BLACK/STAT=ALL
TITLE FIGURE 1
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SORT CASES BY PARTYID
SPLIT FILE BY PARTYID
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
SPLIT FILE OFF
FREQUENCIES VARI = PARTYID POLVIEWS /STAT=ALL
SORT CASES BY POLVIEWS
SPLIT FILE BY POLVIEWS
MEANS TABLES = RELUCTANTX RELUCTANTNOTC BY BLACK/STAT=ALL
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT EDUC50  /STAT=ALL
SPLIT FILE OFF

WEIGHT BY WEIGHT

DO REPEAT MAC1=
  PARTYID0
  PARTYIDS 
  POLVIEWS0
  POLVIEWSS
  NEWSIMP0
  EDUC50  
  AGE0 
  GENDER
  OWNHOME
  INCOME0
  METRO 
  SOUTH
  BAGAIN 
  ATTEND0 
  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX RELUCTANTNOTC 
  PARTYID
  PARTYIDS 
  POLVIEWS POLVIEWSS
  NEWSIMP
  EDUC5  AGE GENDER
  OWNHOME
  INCOME 
  METRO SOUTH
  BAGAIN ATTEND 
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  

  /stat=r anova cha coeff zpp ses label f
  /DEPE= RELUCTANTX
  /ENTER = PARTYID TO ATTEND 
  /ENTER = BLACK
  /ENTER = BPARTYID0 TO BATTEND0

DESCRIPTIVES VARI=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BNEWSIMP0
  BEDUC50  
  BAGE0 
  BGENDER
  BOWNHOME
  BINCOME0
  BMETRO 
  BSOUTH
  BBAGAIN 
  BATTEND0 
  BLACK
  /STAT=ALL
SAVE OUTFILE = 'C:\SPSS\V\FREE22-4.SAV'/MAP


CONPUTE


*END ANALYSIS OF 6 ITEM DV
GET FILE =  'C:\SPSS\V\FREE22-4.SAV'
DISPLAY VARLIST
DISPLAY SORTED VARLIST
* WHEN LOOKING AT B & W SEPARATELY
	WEIGHT BY WEIGHT_AA
COMPUTE RELUCTANTX5 = MEAN.3(  WHOFEARA TO WHOFEARE)
VAR LABELS RELUCTANTX5 Reluctance to Express Views, High = Reluctant
FREQUENCIES VARI = RELUCTANTX5 WHOFEARA TO WHOFEARF  /STAT=ALL
*VARIES FROM 1 TO 4
COMPUTE RELUCTANTX5 = (RELUCTANTX5 - 1)/3
FREQUENCIES VARI = RELUCTANTX5/STAT=ALL
COMPUTE RELUCTANTX5 = (RELUCTANTX5 * -1) + 1
FREQUENCIES VARI = RELUCTANTX5/STAT=ALL
CORRELATIONS VARI = RELUCTANTX5 WHOFEARA TO WHOFEARF  /STAT=ALL
COUNT RELUCTANTNOTC=   WHOFEARA TO WHOFEARE (4)
COUNT RELUCTANTC = WHOFEARA TO WHOFEARE(1,3)
VAR LABELS RELUCTANTNOTC NUMBER OF CONTEXTS IN WHICH NOT AT ALL RELUCTANT TO SPEAK
VAR LABELS RELUCTANTC NUMBER OF CONTEXTS IN WHICH RELUCTANT TO SPEAK
VALUE LABELS RELUCTANTNOTC (5)Not Reluctant At All(0)Reluctant Under All Circumstances

FREQUENCIES VAR = RELUCTANTNOTC RELUCTANTC/STAT=ALL
IF SYSMIS (RELUCTANTX5) RELUCTANTNOTC=$SYSMIS
IF SYSMIS (RELUCTANTX5) RELUCTANTC=$SYSMIS
WEIGHT BY WEIGHT
FREQUENCIES VAR = RELUCTANTNOTC RELUCTANTC/STAT=ALL


CORRELATION VARI = RELUCTANTX RELUCTANTNOTC RELUCTANTC  RELUCTANTX5 MEFREER4 /STAT=ALL



FREQUENCIES VARI = MEFREEM RELUCTANTX5 MEFREER4 /STAT=ALL
CORRELATIONS VARI = RELUCTANTX3 RELUCTANTX5/STAT=ALL
CORRELATION VARI = MEFREEM RELUCTANTX5 /STAT=ALL
MEANS TABLES = RELUCTANTX5 RELUCTANTNOTC BY MEFREEM /STAT=ALL
TEMPORARY
RECODE RELUCTANTNOTC (5=1)(0 THRU 4 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column ROW TOTAL
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
TEMPORARY
RECODE RELUCTANTNOTC (5=1)(0 THRU 5 =0)
CROSSTABS TABLES = RELUCTANTNOTC BY MEFREEM
         /cells=count column 
 /stat=    chisq phi cc lambda uc btau ctau gamma d eta corr risk
CORRELATIONS VARI = RELUCTANTX5  RELUCTANTNOTC
  MEFREEM WHOFEARA TO WHOFEARE/STAT=ALL
CROSSTABS TABLES = WHOFEARA TO WHOFEARE BY RELUCTANTX RELUCTANTNOTC

FREQUENCIES VARI =  WHOFEARA TO WHOFEARE
  RELUCTANTX RELUCTANTX5 RELUCTANTX2 RELUCTANTX3
  MEFREER MEFREER4
  /STAT=ALL
SAVE OUTFILE = 'C:\SPSS\V\BJPS22-1.SAV'/KEEP=

  WEIGHT
  WEIGHT_AA 
  BLACK 
  MEFREEM 
  WHOFEARA TO WHOFEARF 
  NB600 NW597
  RELUCTANTX5 RELUCTANTNOTC 
  PARTYID0
  PARTYIDS 
  POLVIEWS0 POLVIEWSS
  NEWSIMP0
  EDUC50  AGE0 GENDER
  OWNHOME
  INCOME0
  METRO SOUTH
  ATTEND0 
  AGECAT
  PARTYID POLVIEWS 
  RELUCTANTX
  /MAP 
The findings for ideological self-identifications are similar: self-censorship varies little across the ideological continuum. In two instances—those who are very liberal and those who are somewhat conservative—the Black/White differences are not statistically significant, but generally Black people engage in less self-censorship than White people (with the most significant difference found among those who identify as moderates).
